home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
h
/
highspeedpascalv2.0b.dms
/
highspeedpascalv2.0b.adf
/
Interface
/
Trackdisk.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
2KB
|
83 lines
Unit Trackdisk;
Interface
Uses Exec;
Type
tIOExtTD = Record
iotd_Req: tIOStdReq;
iotd_Count: LongInt;
iotd_SecLabel: LongInt;
End;
tTDU_PublicUnit = Record
tdu_Unit: tUnit;
tdu_Comp01Track: Integer;
tdu_Comp10Track: Integer;
tdu_Comp11Track: Integer;
tdu_StepDelay: LongInt;
tdu_SettleDelay: LongInt;
tdu_RetryCnt: ShortInt;
End;
Const
TD_CHANGENUM = $D;
TD_REMOVE = $C;
TDERR_PostReset = $23;
TD_SECTOR = $200;
ETD_WRITE = $50003;
TD_LABELSIZE = $10;
ETD_SEEK = $5000A;
TDB_ALLOW_NON_3_5 = $0;
ETD_MOTOR = $50009;
TDERR_WriteProt = $1C;
TDF_ALLOW_NON_3_5 = $1;
TDERR_BadSecPreamble = $16;
TD_REMCHANGEINT = $15;
TDERR_BadSecSum = $19;
DRIVE5_25 = $2;
TDERR_BadHdrSum = $18;
ETD_RAWREAD = $50010;
TDERR_NoSecHdr = $15;
TD_NAME = 'trackdisk.device';
ETD_RAWWRITE = $50011;
NUMSECS = $B;
NUMUNITS = $4;
TD_SEEK = $A;
TD_SECSHIFT = $9;
TD_MOTOR = $9;
TDERR_DiskChanged = $1D;
TD_CHANGESTATE = $E;
TD_PROTSTATUS = $F;
TD_LASTCOMM = $16;
IOTDB_INDEXSYNC = $4;
TDERR_NoMem = $1F;
TDERR_BadUnitNum = $20;
IOTDF_INDEXSYNC = $10;
TDERR_BadDriveType = $21;
TD_GETNUMTRACKS = $13;
TDERR_BadSecID = $17;
TDERR_DriveInUse = $22;
TD_RAWREAD = $10;
TD_GETDRIVETYPE = $12;
ETD_UPDATE = $50004;
TDERR_TooFewSecs = $1A;
ETD_FORMAT = $5000B;
TD_RAWWRITE = $11;
ETD_CLEAR = $50005;
DRIVE3_5 = $1;
TDF_EXTCOM = $50000;
TDERR_NotSpecified = $14;
TDERR_SeekError = $1E;
TD_ADDCHANGEINT = $14;
ETD_READ = $50002;
TD_FORMAT = $B;
TDERR_BadSecHdr = $1B;
End.